home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mm_1_2.lha / MM / Rexx / MM_Area.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-30  |  595b  |  34 lines
  1. /*
  2. ** Example script for MM_GetAreas and MM_GetAreaInfo commands
  3. */
  4.  
  5. address 'MAILMANAGER'
  6.  
  7. MM_GetAreas AREA
  8.  
  9. say area.count
  10.  
  11. if RC=0 THEN DO i=0 FOR AREA.COUNT
  12.     MM_GetAreaInfo AREA.i AREA
  13.     if RC=0 THEN DO
  14.         say
  15.         say
  16.         say 'Name    :' AREA.NAME
  17.         say 'Desc    :' AREA.DESC
  18.         say 'Path    :' AREA.PATH
  19.         say 'AltPath :' AREA.PATH
  20.         say 'Group   :' AREA.GROUP
  21.         say 'Level   :' AREA.LEVEL
  22.         say 'Addr    :' AREA.ADDR
  23.  
  24.         DO j=0 FOR AREA.NODE.COUNT
  25.             say 'Node :' AREA.NODE.j
  26.             END
  27.  
  28.         say 'Type :' AREA.TYPE
  29.         say 'MBase:' AREA.MBASE
  30.         say 'NMsg :' AREA.NMSG
  31.         say 'HiMsg:' AREA.HIMSG
  32.         END
  33.     END
  34.